Filename: /text/sbasic/shared/03120314.xhp

Split Function [Runtime]
Split 関数 [実行時](hd_id3156027.1)

Returns an array of substrings from a string expression.
与えられた文字列表式を分割し、これらのサブストリング (文字列) を要素とする配列を作成して返します。(par_id3155805.2)

Syntax:
構文:(hd_id3149177.3)

Split (Text As String, delimiter, number)
Split (Text As String, delimiter, number)(par_id3153824.4)

Return value:
戻り値:(hd_id3149763.5)

String
文字列(par_id3154285.6)

Parameters:
パラメータ:(hd_id3145315.7)

Text: Any string expression.
Text: 処理をする文字列表現。(par_id3156023.8)

delimiter (optional): A string of one or more characters length that is used to delimit the Text. The default is the space character.
delimiter (省略可能): Text 中で区切り記号とする文字。デフォルト設定ではスペース記号が使用されます。(par_id3147560.9)

number (optional): The number of substrings that you want to return.
number (省略可能): 取得するサブストリングの数。(par_id3145069.12)

Example:
例:(hd_id3150398.10)

Dim a(3)
Dim a(3)(par_id3151212.11)

Sub main()
Sub main()(par_id3149204.13)

a(0) = "ABCDE"
a(0) = "ABCDE"(par_id3156214.14)

a(1) = 42
a(1) = 42(par_id3154217.15)

a(2) = "MN"
a(2) = "MN"(par_id3145173.16)

a(3) = "X Y Z"
a(3) = "X Y Z"(par_id3153104.17)

JStr = Join1()
JStr = Join1()(par_id3154684.18)

Call Show(JStr, Split1(JStr))
Call Show(JStr, Split1(JStr))(par_id3153367.19)

JStr = Join2()
JStr = Join2()(par_id3145271.20)

Call Show(JStr, Split1(JStr))
Call Show(JStr, Split1(JStr))(par_id3155856.21)

JStr = Join3()
JStr = Join3()(par_id3159155.22)

Call Show(JStr, Split1(JStr))
Call Show(JStr, Split1(JStr))(par_id3155413.23)

End Sub
End Sub(par_id3153190.24)

Function Join1()
Function Join1()(par_id3154320.25)

Join1 = Join(a(), "abc")
Join1 = Join(a(), "abc")(par_id3145748.26)

End Function
End Function(par_id3153142.45)

Function Join2()
Function Join2()(par_id3152462.27)

Join2 = Join(a(), ",")
Join2 = Join(a(), ",")(par_id3146119.28)

End Function
End Function(par_id3154790.29)

Function Join3()
Function Join3()(par_id3147125.30)

Join3 = Join(a())
Join3 = Join(a())(par_id3149377.31)

End Function
End Function(par_id3150114.32)

Function Split1(aStr)
Function Split1(aStr)(par_id3154729.33)

Split1 = Split(aStr, "D")
Split1 = Split(aStr, "D")(par_id3145646.34)

End Function
End Function(par_id3154512.35)

Sub Show(JoinStr, TheArray)
Sub Show(JoinStr, TheArray)(par_id3149400.36)

l = LBound(TheArray)
l = LBound(TheArray)(par_id3153948.37)

u = UBound(TheArray)
u = UBound(TheArray)(par_id3146969.38)

total$ = "=============================" + Chr$(13) + JoinStr + Chr$(13) + Chr$(13)
total$ = "=============================" + Chr$(13) + JoinStr + Chr$(13) + Chr$(13)(par_id3150752.39)

For i = l To u
For i = l To u(par_id3148916.40)

total$ = total$ + TheArray(i) + Str(Len(TheArray(i))) + Chr$(13)
total$ = total$ + TheArray(i) + Str(Len(TheArray(i))) + Chr$(13)(par_id3154754.41)

Next i
Next i(par_id3156054.42)

MsgBox total$
MsgBox total$(par_id3147338.43)

End Sub
End Sub(par_id3155960.44)